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PREFACE 


This instant provides a brief description of the major language features of 
FORTRAN Extended Version 4.8. FORTRAN Extended is designed to 
comply with the American National Standards Institute FORTRAN 
language, as described in X3.9-1966. 


The FORTRAN Extended compiler operates in conjunction with the 
COMPASS 3 assembly language processor under control of the following 
operating systems: 


• NOS 1 for the CONTROL DATA® CYBER 170 Series; CYBER 70 
Models 71, 72, 73, 74 and 6000 Series Computer Systems 

• NOS/BE 1 for the CDC® CYBER 170 Series; CYBER 70 Models 71, 

72, 73, 74, and 6000 Series Computer Systems 

• SCOPE 2 for the CONTROL DATA CYBER 170 Model 176, CYBER 70 
Model 76, and 7600 Computer Systems 


Relocatable binaries compiled by versions of FORTRAN Extended prior to 
Version 4.7 cannot be run with CRM BAM 1.5 or AAM 2; they must be 
recompiled. In this instant CONTROL DATA extensions to the language 
are indicated by shading. 

More detailed information can be found in the following publications: 


Publication 

Publication Number 

FORTRAN Extended Version 4 Reference Manual 60497800 

FORTRAN Common Library Mathematical Routines 60498200 

Reference Manual 

CID Version 1 Guide for Users of FORTRAN 60482700 

Extended Version 4 

FORTRAN Extended Version 4 User's Guide 60499700 

NOS Version 1 Reference Manual, Volume 1 of 2 60435400 
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60493800 


NOS/BE Version 1 Reference Manual 
SCOPE Version 2 Reference Manual 60342600 


CDC manuals can be ordered from Control Data Corporation, 
Literature and Distribution Services, 308 North Dale Street, 
St. Paul, Minnesota 35103. 


This manual describes a subset of the features and 
parameters documented in the FORTRAN Extended 
Version 4 Reference Manual. Control Data cannot be 
responsible for the proper functioning of any features 
or parameters not documented in the FORTRAN 
Extended Version 4 Reference Manual. 


• vi 
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LANGUAGE ELEMENTS 


SYMBOLIC NAMES 

Symbolic names are 1-6 or 7 letters and digits; the first must be a letter. 

FORTRAN CHARACTER SET 


Alphabetic: 

A to Z 




Numeric: 

0 to 9 




Special: 

= equal 

/ slash 


decimal point 


+ plus 

( left parenthesis 

$ 

dollar sign 


- minus 

) right parenthesis 


blank 


* asterisk 

, comma 

H or " 

quote 


Any character acceptable to the operating system can be used in Hollerith infor¬ 
mation and comments. Blanks are significant only in Hollerith fields. 


FORTRAN STATEMENTS 


Column Contents 

1 C or $ or;*' indicates comment line 

1-2 C$ indicates debug directive if in debug mode 

1-2 Cl indicates list directive 

1-5 Statement label 

6 Any character other than blank or zero denotes continua¬ 

tion, except on comment lines or list directives 

7-72 Statement 

73-80 Identification field; not processed by compiler, but printed 

with source listing 

Statements are written in columns 7-72; blanks are ignored except in Hollerith 
fields. All 80 columns can be used for data input. Statements can be labeled 
by an integer constant in the range 1-99999. If a C, $ or * appears in column 1 
without a $ or / in column 2, the remainder of the card is ignored by the com¬ 
piler but printed with the source listing as a comment. 

$ may be used to separate multiple statements on a card except with 
FORMAT statements or list'or debug directives. 
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CONSTANTS 



A constant is a fixed quantity. Table 1 lists the types of constants and gives 
a brief description of each. 


TABLE 1. LIST OF CONSTANTS 


Constants 

Form 

Examples 

Integer 

n 1 n 2-’- n m 

2 


1<m<18 

.Range: -(2 59 -1) to 2 59 -1 

247 


Integer addition and subtraction results can 
range from -(2 59 -1) to 2 59 -1. Integer mul¬ 
tiplication and division operands and results 
can range from -(2 48 -1) to 2 48 -1. Integers 
used as a DO index or as a subscript must 
be in the range from 1 to 2 17 -1. 

31456932 

Real 

n.n .n n. n.nE+s .nE±s n.E±s nE±s 



n Coefficient <15 decimal digits 

7.5 

3.22 


E±s Exponent 

42. El 

314.E05 


s Base 10 scale factor 

700. E-2 

.5 


Range 10' 293 to 10 +322 

Accurate to approximately 14 decimal 
digits 

0. 

Double 

n.nD±s ,nD±s n.D±s nD±s 

5.834D2 

Precision 


7.D2 


n Coefficient < 29 decimal digits 

9.2D03 

14.D-5 


D±s Exponent 

s Base 10 scale factor 

Range 10" 293 to 10 +322 

Accurate to approximately 29 decimal 
digits 

3120D4 

1.D0 

Complex 

(r 1 ,r2) 

(1 .,7.54) 

(-2.1 El,3.24) 


rl Real part 

r2 Imaginary part 

Each part has same range as a real constant 

(0.,-1.) 

(4.0,5.0) 
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TABLE 1. LIST OF CONSTANTS (Contd) 


I 


Constants 

Form 

Examples 

Octal 


77777777.77B 

525252B 

Hollerith 

nHf nm 



nLf 



sjfefcfc or "f" 



1 <n< 10 in expression 



H left justified with blank fill 

6HABCDEF 


R right justified with binary zero fill 

L left justified with binary zero fill 

-7RJUSTIFY 

7LTHEEND 

. 


A Hollerith string delimited by paired 
symbols A A or quotation marks can be 
used anywhere the H form of the 

Hollerith constant can be used. 
example: 

IFjV.EQ.^YESA) GO TO 20 

^ABCDEFA 

"ABCDEF" 


PRINT 1,# SORT - ,SQRT(.5) 

1 FORMAT (A10.F10.2) 


Logical 

.TRUE, or ( T,' 

.FALSE, or .F. 

LOGICAL XI, Z2 
XI = .TRUE. 

Z2 = .FALSE. 


VARIABLES 

A variable is a quantity that can be changed. A variable's symbolic name is 
composed of 1-6 or 7 letters or digits; the first must be a letter. 

Table 2 lists the types of variables and gives a brief description of each. 

A variable not defined in a type declaration is real if the first character of the 
symbolic name is any letter other than l,J,K,L,M,N and if the type is not 
changed by an IMPLICIT statement in that program unit. The default implicit 
typing is as follows: 

A-H, O-Z Real 

l-N Integer 
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| TABLE 2. LIST OF VARIABLES 


Variables 

Form 

Examples 

Integer 

Range -(2 59 -1) to 2 59 -1. As subscript 
or index of a DO statement, maximum 
value is 2 17 -1. As a result of multipli¬ 
cation or division or conversion between 
real and integer, maximum value is 

2 48 _i 

ITEM 

JSUM 

KOOL 

INTEGER X 

Real 

Range 10~ 293 to 10 +322 , approximately 
14 significant digits. 

AVAR 

SUM 

TUF 

BETA 

REAL 1 

Double 

Precision 

Must be defined explicitly in type de¬ 
claration. Range 10~ 293 to 10 +322 , 
approximately 29 significant digits. 
Occupies two storage words. 

DOUBLE PRECISION 
*OMEGA,X,B 

DOUBLE X,Y 

Complex 

Must be defined explicitly in type 
declaration. Occupies two storage 
words; each contains a number in real 
variable format, and each number can 
range from 10~ 293 to 10 +322 . 

COMPLEX A,D 
COMPLEX P2 

Logical 

Must be defined explicitly in type 
declaration. 

LOGICAL L3,C 
LOGICAL L2,R 


ARRAYS 

An array name can have up to three subscripts. Zero and negative subscripts 
are not allowed. Subscripts can be any valid arithmetic expression. A non- 
integer subscript value is truncated to integer. If the number of subscripts in a 
reference, is less than the declared dimensions of the array, the compiler assumes 
a value of one for missing subscripts. The number of subscript expressions in a 
reference must not exceed the number of declared dimensions. 
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Table 3 can be used to find an element in the linear sequence of storage 
locations. 


TABLE 3. ARRAY ELEMENT POSITION 


Number of 

Dimensions 

Array 

Dimension 

Subscript 

Location of 

Element Relative to 
Starting Location 

1 

ALPHA{K) 

ALPHA(k) 

(k-1)*E 

2 

ALPHA(K,M) 

ALPHA(k,m) 

(k-1 + K*(m-1))*E 

3 

ALPHA(K,M,N) 

ALPHA(k,m,n) 

(k-1 + K*(m-1+M*(n-1 )))*E 


The following notations are used in table 3: 


I 


• K, M, and N are dimensions of the array. 

• k, m, and n are actual subscript values of the array. 

• 1 is subtracted from each subscript value because the subscript starts 
with 1, not 0. 

• E is length of the element. For real, logical, and integer arrays, 

E = 1. For complex and double precision arrays, E = 2. 


PRINTER CONTROL CHARACTERS 


The first characters of each line in a print file perform the following functions: J 


Character 


Action 


Blank 

0 

1 

+ 

Any other character 


Space vertically one line then print 

Space vertically two lines then print 

Eject to first line of next page before printing 

No advance before printing; allows overprinting 

Refer to operating system reference manual 


STATEMENT FORMS 


The following symbols are used in the descriptions of statements: 


v variable or array element 

sn statement label 

iv integer variable 

name symbolic name 

u input/output unit: 1- or 2-digit decimal integer constant; 

integer variable with value of: 0-99 or a Hollerith value 
denoting the file name, left justified with zero fill. 

fn format designator; such as a statement label, array name, 

variable, or array element 

p dummy arguments that agree in order, type, and number to 

the actual arguments passed to the subroutine 

b dummy statement label arguments that agree in order, type, 

and number to the actual statement labels passed to the 
subroutine 
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I 


m indexing parameter 

n string of 1-5 octal digits 

c. . . c string of 1-70 characters 

earn arithmetic or masking expression 

erl relational or logical expression 

a variable or array name 

iolist input/output list specifying items to be transmitted 

stat any unlabeled executable statement other than END, DO, or 

another logical IF. 


ASSIGNMENT STATEMENTS 


Form 

Examples 



v = arithmetic expression 

A = B + C 

logical v = erl 

LOGICAL L,M,N 

L = M .AND.N 

v - masking expression 

CAT = 5252B .OR. Z 

MULTIPLE ASSIGNMENT 


V 1 ~ v 2 ’ • • * v n “ expression 

X = Y - Z - (10. + B)/SUM(1 ) 

FLOW CONTROL STATEMENTS 


GO TO sn 

GO TO 30 

GO TO (sn-j, . . . , sn m ), iv 

GO TO (1,4,7,2), N 

GO TO (sn-j, . ,. , sn m ) iv 

GO TO (3,6,10,1) J 

GO TO fsn-j,..., sn m ), earn 

GO TO (1,2,9,4), A + B 

GO TO (sn^, ... , sn m ) earn 

GO TO (3,4,5,6) N + J 

GO TO iv (sn^, . . . , sn m ) 

GO TO NEXT (1,2,3,4) 

GO TO iv,(sn^, . . . , sn m ) 

GO TO LSWTCH, (10,20,30,40) 

ASSIGN sn TO iv 

ASSIGN 10 TO LSWTCH 

1F (earn) sn-j ,sn 2 ,sn 2 

IF (l-N) 3,4,6 

IF (earn) sn^,sn 2 

IF (l*Y*K) 100, 200 

1F (erl) sn 

IF (P.AND.Q) RES = 7.2 

IF (erl) sn^sn^ 

IF (K.EQ. 100) 60,70 

DO sn iv = m-pir^mg 

DO 100 1 = 1,10,2 

DO sn iv = m<j,m 2 

DO 2 J = 1,5 
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TYPE DECLARATION 


Arrays can be dimensioned in type specifications. 


INTEGER name 


INTEGER A,B,C(10) 


name, 


TYPE INTEGER name 


TYPE INTEGER X,Y,N 


name, 


REAL name 


REAL NEXT,X(5) 


name, 


TYPE REAL name 


TYPE REAL N,J,CAT 


name, 


COMPLEX name 


COMPLEX CC,J 


name, 


TYPE COMPLEX name 


TYPE COMPLEX NON,Z(3) 


name. 


DOUBLE PRECISION name 


name DOUBLE PRECISION DP1,DP2 


DOUBLE name 


DOUBLE DP3 


name, 


TYPE DOUBLE PRECISION name 


name, 


TYPE DOUBLE PRECISION CAT,DOG 
TYPE DOUBLE HEN,DUCK 


TYPE DOUBLE name 


name, 


LOGICAL name 


LOGICAL LI,L2 


name, 


TYPE LOGICAL name 


TYPE LOGICAL LL,LN 


.name, 


IMPLICIT type,{ac) 


IMPLICIT REAL (l-N),COMPLEX{A,Q,R-T) 


one or more alphabetic characters or ranges of characters {first and 
last separated by a minus sign) separated by commas 


EXTERNAL DECLARATION 


EXTERNAL name 


EXTERNAL ABS 


name, 


Form 

: 

Examples 

sn CONTINUE 

100 CONTINUE 

PAUSE 

PAUSE 

PAUSE n 

PAUSE 2 

PAUSE ^c W.. cA 

PAUSE # CHANGE TAPE # 

STOP 

STOP 

STOP n 

STOP 25 

STOP . . . c# 

, STOP ^ END OF RUN A 

END 

END 
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STORAGE ALLOCATION 


Form 

Examples 

type name^ (d-|) 

REAL CJ (3,3) 

TYPE type name^ (d-j) 

TYPE REAL DJ (10) 


DIMENSION name 1 (d^.name n (d n ) 

DIMENSION SUM (10) 

d- array declarator, one to three integer constants; in a subpro¬ 

gram, one to three integer constants or variables 


INTEGER, REAL, COMPLEX, DOUBLE PRECISION, 
LOGICAL, or DOUBLE 


COMMON v 1 .v n 


COMMON A,B,C 


COMMON/blkname-j/v^, . . . , v R . . . /blkname n /v^, . . . , v p 

| COMMON/BLK/D,E,F/CAT/X,Y,Z(10) 


COMMON//v v . . . ,v n 


COMMON//NEXT,JAY(3) 


blkname symbolic name or 1-7 digits 


I 


// 

V: 


blank common 
variable or array name 


DATA vlistq /dlist-j /, . . . , v listed I ist n / 
DATA (vlist|^dlist^),... ,(vlist n =dlist n ). 


DATA A,B,C/3.,27.5,5.0/ 
DATA (X=3.),(Y=5.) 


vlistj array names, array elements, variable names or implied DO list, 

separated by commas 

dlistj one or more constant list forms separated by commas, with rf 

an integer constant repetition factor: 

constant (constant list) 

rf * con sta n t rf * (constant list) 

rf (constant l ist ) 


EQUIVALENCE (glist 1 ),-(giist n ) 

giistj 


EQUIVALENCE (N,J),(X,Y) 


two or more variables, array elements, or array names 
separated by commas 


I 


LEV EL H ,a*j, . . . , a^ 


LEVEL 3,X,Y,Z 


unsigned integer 1, 2 or 3, indicating level to which list 
is allocated 


a i 


variable or array name 

PROGRAM UNITS 

PROGRAM name (file 1 , . . . , file n ) 
PROGRAM name 


PROGRAM A(INPUT,OUTPUT) 
PROGRAM B 


8 


60497900 B 



Examples 


Form 


FUNCTION GRATER(A,B) 


FUNCTION name(p 


REAL FUNCTION D(X,Y) 


type FUNCTION name (p-j 
BLOCK DATA 


BLOCK DATA 


BLOCK DATA BD3 


BLOCK DATA name 


SUBROUTINE X(C,D,E) 


SUBROUTINE name (p 


SUBROUTINE PGM 


SUBROUTINE name 


P n >, RETURNS (b 1 .b m ) 

SUBROUTINE SUB(X,Y), RETURNS (M,N) 


SUBROUTINE name (p-, 


SUBROUTINE name, RETURNS (b 


SUBROUTINE SUB2, RETURNS(J,K,L) 


ENTRY POINT 


ENTR Y BOX 


ENTRY name 


STATEMENT FUNCTIONS 


ADD(X,Y,C,D) = X+Y+C+D 


name (p 


expression 


SUBPROGRAM CONTROL STATEMENTS 


CALL JIM 


CALL name 


CALL JIM (A,2) 


CALL name (p 


p n ),RETURNS (b 


CALL name {p 1 


CALL JOHN (X,Y),RETURNS (2,3) 


CALL SUB4,RETURNS (8,2,2) 


CALL name,RETURNS (b 


RETURN 


RETURN 


RETURN M 


RETURN i 


a dummy argument in a RETURNS list 


I NPUT/OUTPUT 


PRINT 4,A,B,N 


PRINT fnjolist 


PRINT 20 


PRINT fn 


PRINT (6,17) A 


PRINT(u,fn). iolist 
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Form 

Examples 

PRINT*,iolist 

PRINT *, N, (C(I),I=1,N) 

PRINT(u,fn) 

PRINT(NUM, 46) 

PRINT(u,*) iolist 

PRINT (19,*) X,SQRT(X) 

PUNCH fn,iolist 

PUNCH 2,X,Y,Z 

PUNCH fn 

PUNCH 30 

PUNCH(u,fn) iolist 

PUNCH (NUM,FMT)J,K 

PUNCH*,iolist 

PUNCH *,=£X =#,X 

PUNCH(u,*) iolist 

PUNCH (4,*) A{i), A(J) ^ 

PUNCH(u,fn) 

PUNCH (45,66) ^P 

WRITE(u,fn) iolist 

WRITE (4,27) X,Y,Z 

WRITE(u,fn) 

WRITE (2,30) 

WRITE fn,iolist 

WRITE 203, B (2) 

WRITE fn 

WRITE 66 

WRITE (u) iolist 

WRITE (3) A,B,C 

WRITE (u) 

WRITE (3) 

WRITE(u,*) iolist 

WRITE (4,*) ABCD 

WRITE*,iolist 

WRITE *,J,K 

READ(u,fn) iolist 

READ (5,100) X,Y,Z 

READ(u,fn) 

READ (5,100) 

READ fn,iolist 

READ 100,A,B,C 

READ fn 

READ 100 

READ(u) iolist 

READ (3) JN,AB 

READ(u) 

READ (5) 

READ(u,*) iolist 

READ (5,*) Q,R 

READ*,iolist 

READ* ,(C(J),D(J),J~I,N) |§1| 

BUFFER IN (u,p) (a,b) 

BUFFER IN (1,1 )(R(1 ),R{512)) 

BUFFER OUT(u,p) (a,b) 

BUFFER OUT(1,J) (B(M),B(N)) 

a,b first and last word of data block to be transferred 

p integer constant or integer variable: 0, even parity; 1, odd parity 

NAMELIST/group name^/a-], . . . , a n / . 

. . /group name n /a-|, . . . a n 


N AM E L1 ST/S H1 P/11,12, A, B ^P 

g 10 
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Examples 


Form 


READ (5,SHIP) 


READ (u,group name) 


WRITE (6,SH1P) 


WRITE (u,group name) 


READ group name 


PRINT SHIP 


PRINT group name 


PUNCH SHIP 


PUNCH group name 


group name symbolic name identifying:the group a 


INTERNAL TRANSFER OF DATA 

ENCODE (c,fn/v) iolist ENCODE (40,1,ALPHA) A f B,C 

DECODE (c,fn,v) iolist DECODE (77,17,CARD) INK 

c length of record in characters; unsigned integer constant or 

simple integer variable 

v starting location of record; variable or array name 


FILE MANIPULATION 

REWIND u REWIND 3 

BACKSPACE u BACKSPACE LUN 

ENDFILEu ENDFILE 4 

FORMAT SPECIFICATION 

sn FORMAT (fs^ . . . , fs n ) 100 FORMAT (16,F7.3,214) 

fsj one or more field specifications separated by commas and/or 

slashes and optionally grouped by parentheses 

DATA CONVERSION 

Leading blanks are not significant in numeric input conversions; other blanks 
are treated as zeros. When an all-blank field is read with a Hollerith input 
specification, each blank character is translated to a display code 55g. The 
output field is right-justified and blank-filled for all output conversion. 


srEw.d Single precision floating point with exponent 2E13.3 

srEw.dEe Floating point with specified exponent length E10.2E1 

srEw.dDe Floating point with specified exponent length E30.20D3 

Si Fw.d Single precision floating point without exponent F7.3 

srGw.d Single precision floating point with or without G1 4.6 

exponent 

srDw.d Double precision floating point with exponent 2D 10.4 
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Form 

Examples 




nX 

nH . . 
* . . 


/ 

Tn 

V 


419 

16.2 

2L5 

A7 

4R10 

05 


rlw Decimal integer conversion 

rlw.z Integer with specified minimum digits 

rLw Logical conversion 

rAw Alphanumeric conversion 

rRw Alphanumeric conversion 

rOw Octal integer conversion 

rOw.z Octal integer with specified minimum digits 024.16 

rZw Hexadecimal conversion ZB 

s optional scale factor of the form: nP 
r optional repetition factor 

w nonzero unsigned integer constant indicating field width 
d unsigned integer constant indicating digits to right of decimal point 

e nonzero unsigned integer indicating digits in exponent field 

z integer specifying minimum number of digits 

Intraline spacing 


Hollerith 


Format field separator; indicates end of FORTRAN 
record 

Column tabulation; control skips to column n 

Display code substitution; the rightmost six bits 
from the current variable in the input/output 
list are interpreted as display code 

Numeric substitution; the current variable in the 
input/output list supplies a positive integer value 
to be used in place of the = for the next 
variable in the input/output list 


9X 

8H THE END 
*FINIS* 

=£ TEST 7 Y 
"NEW TEST" 
/8HNEW LINE/ 

T10 

V8.2 

A= 


OVERLAYS 

CALL OVERLAY (fnamed,j,recall,k) 

CALL OVERLAY (4HTEXT,1,0,6HRECALL) 

fname name of file or overlay in H format 

i,j octal with a B or decimal equivalent level numbers 

recall 6HRECALL stops reloading of overlay already in memory 

k L format Hollerith constant: name of library containing overlay 

Any other non-zero value: overlay loaded from global library 


12 


60497900 B 



Form 

Examples 

OVER LAY (fname,i,j,origin,ov-m 

OVERLAY (TEST,0,0,OV=4) 


fname file'where generated overlay is\tO be written 

i,j octal level numbers of the overlay \ 

origin overlay origin; optional (not allowed for 0,0 overlay) 

ov- m total decimal number(m) of the high level overlay structure; 

optional (valid only for 0,0 overlay) 

DEBUG STATEMENTS 

The D option on FTN control statement selects debugging mode; if it is not 
specified, debugging statements are treated as comments. 

Debug statements are written in columns 7-72; columns 1 and 2 of each state¬ 
ment must contain C$. Any character, other than blank or zero, in column 6 
denotes a continuation line. Columns 3, 4, and 5 of a continuation line must 
be blank. 


C$ 

C$ 

C$ 

C$ 

c$ 

c$ 

c$ 


c$ 

c$ 

c$ 

cs 


DEBUG 

DEBUG (name-,,, . ., name„) 

AREA bounds .j, . . . , bounds n 
DEBUG 


within program unit 


AREA/name^/bounds^, . . . , bounds n , 
/name n /boundS|, . . , , bound$ n 


external debug deck 


DEBUG (name-j,..., 
or 

DEBUG 

name n ) "' ■ f f ^ 

bounds 

(d|,n 2 ! 

i-.' n-j initial line position; n 2 terminal line position 


(n 3 } 

single line position to be debugged 


(n-,,*) 

n| initial line- position; * last tine of program 


(> 2 ) 

* first line of program; n 2 terminal line position 


(*,*)■ 

■ 'first and last lines of program 

ARRAYS (a.,, 

|| HI 

) 

ARRAYS 



a i 

array names 

CALLS (s-j, . 

■ • » s n \ 



CALLS 


subroutine names 
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FORTRAN INTRINSIC FUNCTIONS 

An intrinsic function is a compiler-defined procedure that returns a single value. 
The FORTRAN Extended intrinsic functions are shown in table 4. 

TABLE 4. FORTRAN INTRINSIC FUNCTIONS 



Arguments 

Type of 
Function 

Symbolic 

Name 


Definition 

Max. 

No. 

Type 

Example 

Absolute value |A| 

1 

Real 

Real 

ABS 

Y=ABS(X) 



1 nteger 

Integer 

IABS 

J= 1 ABS (1) 



Double 

Double 

DABS 

DOUBLE A,B 
B=DABS(A) 

Truncate A: sign of 

1 

Real 

Real 

AINT 

Y=AINT(X) 

A times largest integer 


Real 

Integer 

INT 

1 = 1 NT(X) 

« lAl + 


Double 

Integer 

IDINT 

DOUBLE Z 

J=l DINT(Z) 

Remaindering^ 

2 

Real 

Real 

AMOD 

B=AMOD(A1,A2) 

A1(mod A2) 


1nteger 

Integer 

MOD 1 ” 

J=MOD(l 1,12) 

Choosing largest of 

63 

Integer 

Real 

AMAXO 

X=AMAX0(l,J,K) 

2-63 values: max 


Real 

Real 

AMAX1 

A-AMAX1(X,Y,Z) 

(A1, . . . , An) 


integer 

integer 

MAXO 

L=MAX0(l,J,K,N) 



Real 

Integer 

MAXI 

l=MAX1 (A,B) 



Double 

Double 

DMAX1 

DOUBLE W,X,Y,Z 
W=DMAX1 (X,Y,Z) 

Choosing smallest of 

63 

1nteger 

Real 

AMINO 

Y=AMIN0(l,J) 

2-63 values: min 


Real 

Real 

AMIN 1 

Z=AMIN 1 (X,Y) 

(A1.An) 


Integer 

1 nteger 

MINO 

L=MIN0(l,J) 



Real 

1 nteger 

MINI 

J=MIN 1(X,Y) 



Double 

Double 

DMIN1 

DOUBLE A,B,C 
C-DMIN1 (A,B) 

Convert from integer 

1 

Integer 

Real 

FLOAT 

X1=FLOAT(l) 

to real 






Convert from real to 

1 

Real 

1nteger 

(FIX 

1 Y=1 FI X (Y) 

integer 






Transfer sign of A2 to 

2 

Real 

Real 

SIGN 

Z=SIGN(X,Y) 

1A11, +A1 if A2=+0, 


Integer 

Integer 

ISIGN 

J=ISIGN(11,12) 

-A1 if A2=-0 


Double 

Double 

DSIGN 

DOUBLE X,Y,Z 
Z=DSIGN(X,Y) 

Positive difference: if 

2 

Real 

Real 

DIM 

A=DIM(C,D) 

A1 > A2 then A1-A2. 

If A1 < A2 then 0 


Integer 

Integer 

1 DIM 

J=IDIM(11,12) 


^Absolute value of arguments must be < 2 48 -1. 

^MOD or AMOD (a,b) is defined as a— [a/b] b, where [X] is the largest 
integer that does not exceed the magnitude of X with sign the same as X. 
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TABLE 4. FORTRAN INTRINSIC FUNCTIONS (Contd) 


Arguments 


Definition 


Type of 
Function 


Symbolic 


Example 


Logical product: bit-: 
by-bit logical AND of 
2 or more values 

Logical sum: bit-by- 
bit logical OR of 2 or 
more values 

Exclusive OR: bit-by- 63 
bit exclusive OR of 2 
or more values 

Complement: bit-by- 1 
bit Boolean comple¬ 
ment of A 


C“AND(X,YyZ) 


Shift AT by I bit posi¬ 
tions: left circular if 
I is positive; right end 
off with sign exten¬ 
sion if I is negative; 

0 <| I 1 < 60 tt 

Mask by setting I 1 

bits to 1 starting at 
left of word. 

0< I <60 tr 


Obtain most significant 1 
part of double preci¬ 
sion argument 

Obtain real part of 1 

complex argument 

Obtain imaginary part 1 
of complex argument 

Express single preci- 1 

sion argument in 
double precision form 



Com¬ 

plex 


^For a double precision or complex argument, only the high order or real 
part is used. 

^Function is undefined if outside these bounds. 


















TABLE 4. FORTRAN INTRINSIC FUNCTIONS (Contd) 



— 

Arguments 

. ... _ 

Type of 
Function 

Symbolic 

Name 

Example 

Definition 

Max. 

No. 

Type 

Express two real argu- 

2 

Real 

Complex 

CMPLX 

COMPLEX C 

ments in complex 
form: A1+A2i where 
i 2 =-i 





C=CMPLX(A1,A2) 

Obtain conjugate of 

1 

Com- 

Complex 

CONJG 

COMPLEX X,Y 

complex argument: 
a-bi where A=a+bi 


plex 



Y=CONJG(X) 

Return random num- 

1 

any 

Real 

RANF 

Y=RANF(A) 

bers uniformly distri¬ 
buted over range (0,1); 


type 


'I-tV-; ; - r/:- 


dummy argument is 

.V 7 


■ ' . ; 


• V : :7V ,■ ■ 

ignored 






Obtain address of 

1 

any 

Integer 

LOCF 

J=LOCF(Q) 

named variable or 

151 

type 


s 

. • •• 

•-r 7s - * / c s % X ; 

array element, or 
entry point of named 
external subprogram 

'• • 


• • . 

• 

. ' \ 

—__ -7,.y. 

' 

■ 

• 


FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS 

A basic external function is a predefined procedure (used to evaluate standard 
mathematical functions) included with the FORTRAN common library. Table 5 
shows the FORTRAN library basic external functions. 

TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS 


Definition 

Arguments 

Type of 

Symbolic 

Example 

Max. 

No. 

Type 

Function 

Name 

Exponent: e to 

1 

Real 

Real 

EXP 

Z=EXP(Y) 

Ath power 


Double 

Double 

DEXP 

DOUBLE X,Y 
Y=DEXP(X) 



Complex 

Complex 

CEXP 

COMPLEX A,B 
B=CEXP(A) 

Natural logarithm 

1 

Real 

Real 

ALOG 

Z=ALOG(Y) 

of A 


Double 

Double 

DLOG 

DOUBLE X;Y 
Y=DLOG(X) 



Complex 

Complex 

CLOG 

COMPLEX A,B 
B=CLOG(A) 

Logarithm to 

1 

Real 

Real 

ALOG10 

B=ALOG 10(A) 

base 10 of A 


Double 

Double 

DLOG10 

DOUBLE D,E 
E=DLOG10(D) 

Trigonometric 

1 

Real 

Real 

SIN 

Y=SIN(X) 

sine of A 


Double 

Double 

DSIN 

DOUBLE D,E 
E=DSIN(D) 
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TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS (Contd) 



Arguments 

Type of 
Function 

Symbolic 

Name 


Definition 

Max. 

No. 

m 

Example 

Trigonometric 


Complex 

Complex 

CSIN 

COMPLEX CC,F 

sine of A (cont) 





CC=CSIN(F) 

Trigonometric 

1 

Real 

Real 

COS 

X-COSY(Y) 

cosine of A 


Double 

Double 

DCOS 

DOUBLE D,E 
E-DCOS(D) 



Complex 

Complex 

CCOS 

COMPLEX CC,F 
CC=CCOS(F) 

Hyperbolic sine 

1 

Real 

Real 

SINN 

B-SINH(A) 

of A 


Double 

Double 

DSINH 

DOUBLE D/E 
E-DSINH(D) 

Hyperbolic cosine 


Real 

Real 

COSH 

B-COSH(A) 

of A 

lifillll 

Double 

... ! 

Double 

DCOSH 

DOUBLE D,E 
E-DCOSH(D) 

Hyperbolic 

i 

Real 

Real 

TANH 

B=TANH(A) 

tangent of A 


Double 

Double 

DTANH 

DOUBLE D,E 
E=DTANH(D) 

Error Function 

i 

Real 

Real 

ERF 

A1 = ERF(A) 

Complementary 
Error Function 

i 

Real 

Real 

ERFC(A) 

Y=ERFC(X) 

Hyperbolic 
Artangent of 

A where |A|< 1 

i 

Real 

Real 

ATANH 

Y=ATANH(D) 

Trigometric 

Sine in 

1 

Real 

Rea! 

SI N H 

Z=SINH(C) 

degrees of A 
where |A|<2 47 






Trigometric 

Cosine in 

i 

Real 

Real 

COSD 

W=COSD(E) 

degrees of A 
where |A|<2 47 






T rigometric 
Tangent in 
degrees of A 
where |A|<2 47 

i 

Rea! 

R eal 

TAND 1 

Y=TAND(X) 

Square root 

i 

Real 

Real 

SORT 

Y=SQRT(X) 



Double 

Double 

DSQRT 

DOUBLE D,E 

E DSQRT(D) 



Complex 

Complex 

CSQRT 

COMPLEX CC,F 
CC=CSQRT(F) 
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TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS (Contd) I 


Definition 

Arguments 

Type of 
Function 

Symbolic 

Name 

Example 


Max. 

No. 

Type 

Arctangent of A 

1 

Real 

Real 

AT AN 

Y=ATAN(X) 




Double 

Double 

DATAN 

DOUBLE D,E 







E=DATAN (D) 


Arctangent of 

2 

Real 

Real 

ATAN2 

B=ATAN2(A1 ,A2) 


A1/A2 


Double 

Double 

DATAN2 

DOUBLE 0,01,02 







D=DATAN2(D2,D2) 


Remaindering^ 

2 

Double 

Double 

DMOD 

DOUBLE DM,D 1,02 

1 






DM=DMOD(D 1 ,D2) 


Modulus: square 

1 

Complex 

Real 

CABS 

COMPLEX C 


root (a^+b^) for 





CM=CABS(C) 


A=a+bi 







Arccosine of A 

1 

Real 

Real 

ACOS 

X=ACOS(Y) 




Double 

Double 

DACOS 

DOUBLE D,E 

1 






D=DAC0S(E) 

1 

Arcsine of A 

1 

Real 

Real 

ASIN 

X-ASIN (Y) 




Double 

Double 

DASIN 

DOUBLE D,E 

1 






D=DASIN(E) 

1 

T rigonometric 

1 

Real 

Real 

TAN 

X=TAN(Y) 


tangent of A 


Double 

Double 

DTAN 

DOUBLE E,D 

1 






E=DTAN(D) 

1 


^The argument for TAND must not be an odd multiple of 90. 


^DMOD (a,b) is defined as a-La/b] b, where [X] is the largest integer that 
does not exceed the magnitude of X with sign the same as X. 
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LIBRARY SUBROUTINES AND FUNCTIONS 

The following utility subprograms are supplied by the system. The DATE, 
IDATE, SECOND, TIME and CLOCK routines can be used as functions or 
subroutines. The value for these routines is always returned via the argument 


| and the normal function return. 

mmmsmssmm 

| DATE(a) or CALL DATE (a) 

Returns current date in format 
Amm/dd/yyA 

I; JDATE(a) or CALL JDATE (a) / 

Returns current date in format 

5Ryyddd. (not available under 

SCOPE 2,1.) 

| SECOND*t) or CALL SECOND (t) 

Returns elapsed central processor 
time as real number 

1 TIME(a) or CALL TIME (a) 

I CLbCKia) or CALL . CLOCK(a)-' 

Returns current time in format 
Ahh.mm.ssA 

CALL DISPLA (H,k) 

Places 1-80 character Hollerith mes¬ 
sage H and value from expression or 
variable k in dayfile 

CALL REMARK (H) 

Places 1-80 character Hollerith mes¬ 
sage H in dayfile; 1-90 characters for 
SCOPE 2.1 

CALL SLITE(i) 

Turns on sense light 1-6; 0 turns 
off all 

CALL SLITET(U) 

Sets j-2 if sense light i is off, j=T if on 

CALL SSWTCH (i,j) 

Sets j=2 if switch i is off; j-1 if on 

CALL OVERLAY (fname,i r j,recall,k) 

Calls an overlay 

CALL EXIT 

Terminates program 

1 CALL CHEKPTX (filelist.nl 

Takes a checkpoint dump of all files if 
n is zero; if n is nonzero a checkpoint 
dump is taken of all the files specified 
by filelist 

CALL RECOVR (subr,flags r ck} \ 

Calls subr on abnormal termination 
(not available under SCOPE 2.1) 

CALL DUMP (a^.b^fi,.. . , a n ,b n ,f n ) 

Dumps storage and terminates pro¬ 
gram execution 

CALL P DUM P (a|,b 1 ,f . . ., 

Dumps storage and returns control to 
calling program 

a,b first and last word of storage area to be dumped 

f=0 or 3, octal dump Y 

, „ . , ( Adding 4 to any f values causes the values of a 

f=1, real dump > 

[ and b to be used as addresses. 

f=2, integer dump I 
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CALL STRACE 


CALL STRACE 

Prints traceback 

LEGVAR (a) 

Checks variables: a -1 is indefinite, 

+1 is out of range, and 0 is normal 

CALL SYSTEM (num/msg) 

Prints error message and aborts if 
fatal error 

CALL SYSTEMC (num,speclist) 

Prints non-standard error message 

CALL LIMERRilim) 

Enables user to input data without 
risk of termination up to the limit 
of lim 

NUMERR(n) 

Returns the number of errors since 
last LIM ERR call; n is a dummy 
argument 

CALL RANSET (n) 

Sets initial value of RANF seed to n 

CALL RANGET (nam) 

Puts current seed of RANF in nam 

CALL OPENMS (u,ix, Ingth ,t) 

Opens mass storage file 

CALL READMS {u,fwa,n,k) . 

Transmits data from mass storage to 
central memory 

CALL WRITMS (u,fwa,n,k,r,s) 

Transmits data from central memory 
to mass storage 

CALL STINDX (u,ix,lngth,t} 

Changes file index in central memory 
to base specified in .call 

CALL CLOSMS (u) 

Writes index from central memory to 
file and closes file 


unit designator 

Name of the array containing the master index 

Length of index buffer: Number index, ingth > entries in 
master index + 1; name index, Ingth -> 2* maximum number 
of entries in master index + 1 

Index type: 0 is number index; 1 is name index 
First word address.in central memory of data buffer area 
Number of 60-bit words in data record to be transferred 

Record key: Number index 1 < k < ingth-1; name index, k 
can refer to any 60-bit quantity except ±.0 

Rewrite in place request: -1 is rewrite; -1 is rewrite if new record 
length < old record.length; otherwise, write at end-of-information; 
0 is write at end-of-information {default}. Gan be omitted if no 
subindex flag parameter is required -■ 

Subindex flag, may be omitted; 0 is flag is not.included (default 
value). 1 is write subindex marker flag in control word for record 
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UNIT (u) 


EOF {u} 

10GHEC (u) 

LENGTH (u) or 

CALL LENGTHX (u,nw,ubc) 

CALL LABEL (u.labinfo) • 


CALL MOV LEV (a,b,n) 


CALL READEC (a,b,n) 


CALL WRITEC (a,b,n) 


Returns buffer status on unit u: -1 
is unit ready, no error; +0 is unit 
ready, EOF encountered; +1 is unit 
ready, parity error encountered 

Checks for end of file; if zero, no 
end of file encountered 

Returns parity status on non-buffer 
unit; if zero, no read parity error 

Returns number of words read and 
unused bit count on previous buffer 
or mass storage input/output request 

Sets tape label information; iabinfo 
is a 4-word array containing label : 
information 4 

Transfers n consecutive words of data 
between "extended core storage, cen¬ 
tral memory, SCM, or LCM. a is 
starting address of the data to be 
moved; and b is starting address of 
receiving location. 

Transfers n consecutive words of data 
beginning with a in central memory 
and b in extended core storage or 
LCM block. 

Transfers n consecutive words of data 
beginning with a in central memory 
and b in extended core storage or 
LCM block.. 


CALL CONN EC (u) or 
CALL CON NEC (u,cs) 


Connects file to a terminal (not 
available under SCORE 2.1) 


cs character set 
CALL DISCON (u) 


Disconnects file from a terminal 
(not available under SCOPE 2.1) 
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SAMPLE DECK STRUCTURES 


A job deck submitted for execution through a card reader begins with a job 
statement and ends with an end-of-information card (a 6/7/8/9 multipunch 
in column 1. The deck is divided into sections by an end-of-record card (a 
7/8/9 multipunch in column 1). Refer to the appropriate operating system 
reference manual for information concerning control statements. 


COMPILING AND EXECUTING A FORTRAN PROGRAM 

The following deck structure is used for simple compilation and execution 
of a FORTRAN source program. 


Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 
FTN. 

LGO. 

7/8/9 

PROGRAM MAIN 


NOS only 
NOS only 

NOS/BE and SCOPE 2 only 


END 

FUNCTION RTSM(A,B) 


END 

SUBROUTINE RUN(C) 


END 

7/8/9 

Data used in execution 
6/7/B/9 
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COMPILING IN TIMESHARING MODE 

The following deck structure is used when TS compilation mode is desired. 



dob statement 
USER statement 
CHARGE statment 
ACCOUNT statment 


FTN(TS) 


7/8/9 


NOS only 
NOS only 

NOS/BE and SCOPE 2 only 


(Timesharing 
(compilation 


mode is requested for 



FORTRAN source deck 
6/7/8/9 



COMPILING A FORTRAN PROGRAM AND 
PRODUCING BINARY CARDS 


The following deck structure is used when the OPT=2 (full optimization) 
option of the FTN control card is desired. 


Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 

FTN(B=PUNCHB,OPT=2) 

7/8/9 

FORTRAN source deck 
6/1/S/9 



NOS only 
NOS only 

NOS/BE and SCOPE 2 only 

The file PUNCHB is punched at end-of-job 
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LOADING AND EXECUTING A BINARY PROGRAM 


The following deck structure is used to load and execute a program 
composed of binary object code. 

Job statement 

USER statement 

CHARGE statment 
ACCOUNT statement 
MAP(OFF) 

INPUT. 

7/8/9 

NOS only 

NOS only 

NOS/BE and SCOPE 2 only 

Binary deck 


6/7/9 

End-of-file; terminates load (NOS only) 

7/8/9 | 

Empty record; terminates load (NOS/BE 
and SCOPE 2 only) 

7/8/9 



Data used during execution 
6/7/8/9 


60497900 B 


25 





COMPILING AND EXECUTING WITH 
DIFFERENT DATA DECKS 

The following deck structure is used to execute a program using two 
different data decks. The program is compiled only once but executes 
twice. 


Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 
FTN. 


NOS only 
NOS only 

NOS/BE and SCOPE 2 only 


LGO„TAPEl. 
LGO„T APE2. 


Output is written on two separate files; 
data 1 is written on TAPE1, data 2 is 
written on TAPE2. 


7/8/9 

PROGRAM MAIN(INPUT,OUTPUT) 


END 

7/8/9 

Data 1 used during first execution. 
7/8/9 

Data 2 used during second execution. 
6/7/S/9 
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COMPILING AND EXECUTING A FORTRAN 
SUBROUTINE AND A COMPASS SUBPROGRAM 

The following deck structure is used when compiling and executing a 
FORTRAN main program, FORTRAN subroutine, and a COMPASS 
subprogram. FORTRAN and COMPASS program unit source decks can be 
in any order. COMPASS source decks must conform with the format 
required by the COMPASS language. 


Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 


NOS only 
NOS only 

NOS/BE and SCOPE 2 only 


FTN(EL=A) 


All diagnostics including ANSI are listed 
on file OUTPUT 


LGO. 

7/8/9 

PROGRAM DONE(INPUT,OUTPUT) 


END 

SUBROUTINE S1(P1,P2) 


RETURN 

END 

IDENT SUB 
ENTRY A1 


END 


7/8/9 


Data used during execution 
6/7/B/9 
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COMPILING AND EXECUTING WITH A RELOCATABLE 
BINARY PROGRAM 


The following deck structure is used when a FORTRAN source program is 
compiled and executed with a relocatable binary deck. 


Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 
FTN. 

LOAD(LGO) 

LOAD(INPUT) 

EXECUTE. 

7/8/9 

FORTRAN source program 
7/8/9 

Binary deck 


NOS only 
NOS only 

NOS/BE and SCOPE 2 only 



6/7/9 

End-of-file; terminates load (NOS only) 

7/8/9 

( Empty record; terminates load (NOS/BE 
\ and SCOPE 2 only) 

7/8/9 



Data used during execution 
6/7/S/9 
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COMPILING AND EXECUTING WITH OVERLAYS 

The following sample deck structure is used when compilation and 
execution of a program with overlays is desired. 

Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 
FTN. 

LOAD(LGO) 

NOGO. 

SUM. 

7/8/9 

OVERLAY(SUM,0,0) Main overlay source deck 

PROGRAM LEO(INPUT,OUTPUT) 


CALL GROUND(40,0) 

CALL OVERLAY(3HSUM,1>0) Call to primary overlay 


NOS only 
NOS only 

NOS/BE and SCOPE 2 only 


END 

SUbRuU l INt. GROUND(x,y) 


END 

OVERLAY(SUM,1,0) Primary overlay source deck 

PROGRAM RDY 


CALL OVERLAY(3HSUM,l>l) Call to secondary overlay 

END 

OVERLAY(SUM,l»l) Secondary overlay source deck 

PROGRAM MLT 

END 

7/8/9 

Data used during execution 
6/7/B/9 
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EXTERNAL DEBUGGING DECK 

The following deck structure is used when debugging of all program units is 
desired. The external debugging deck is placed immediately in front of the 
first source line of the first program unit. All program units (here, 
Program A and Subroutine B) are debugged unless limiting bounds are 
specified in the deck. 


Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

ETN(D) 

LGO. 

7/8/9 

C$ DEBUG 

| External debugging deck 

PROGRAM A 


END 

SUBROUTINE B 


RETURN 

7/8/9 

Data used during execution 
6/7/B/9 
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INTERSPERSED DEBUGGING STATEMENTS 


The following sample deck structure is used when interspersed debugging 
statements are desired. Debugging statements are inserted at the point in 
the program where they are activated. 

Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

FTN(D) 

LGO. 

7/8/9 

PROGRAM MAIN 
Specification statements 


C$ 

C$ 


Executable statements 

FUNCS 

CALLS 


DEBUG statements 


Executable statements 


C$ 

C$ 


STORES(A) 
OFF(FUNCS) 
Executable statements 


DEBUG statements 


7/8/9 

Data used during execution 
6/7/S/9 
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EXTERNAL DECK ON SEPARATE FILE 


The debugging deck is on file INPUT and the source deck on a named file. 
Alternatively, the debugging deck is placed on a separate file (external debugging 
deck) named by the D parameter on the FTN control statement and called in 
during compilation. All program units will be debugged (unless the program 
units to be debugged are specified in the deck). This positioning is useful when 
several jobs can be processed using the same debugging deck. 




FTN (l=TAPE1,D) 


Compiler 
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SORT/MERGE 4 AND 1 INTERFACE 


Sort/Merge 4 and 1 processing can be initiated through FORTRAN 
Extended call statements. Sort/Merge 4 and 1 uses the unused part of field 
length as a scratch area; if necessary, additional field length is obtained 
from the system. For this reason, the STATIC option of the FTN control 
statement must not be specified with programs using Sort/Merge 4 and 1. 
Refer to the Sort/Merge 4 and 1 Reference Manual for detailed 
information. 


The following statements initiate Sort/Merge 4 and 1 processing. 


CALL SMSORT(mrl) 
CALL SMSORTB(mrl,ba) 

CALL SMSORTP(mrl,ba) 

CALL SMMERGE(mrl,ba) 


Sort-only or sort and merge processing. 

Balanced tape sort under NOS and NOS/BE 
only. 

Polyphase tape sort under NOS and NOS/BE 
only. 

Merge only processing. 


mrl Maximum record length in characters of record to be sorted. 

ba Optional number of words of central memory used by Sort/Merge for 

working storage; applies only to NOS and NOS/BE (default 22 OOO 3 ) 

Optional total in decimal of large core memory used as a buffer 
area for aii intermediate scratch fiies applies only to SCOPE 2. 

CALL SMFILE(dis,i/o,lfn,action) 


One call to SMFILE must be issued for each file unless the output file is 
handled by SMOWN. 


dis 


i/o 


File processing; specified as follows: 

"SORT" File to be sorted. 

"MERGE" File to be merged. 

"OUTPUT" File to receive output. 


Type of input/output; specified as follows: 


"FORMATTED" File acessed with formatted input/ 

"CODED" output. 

"BINARY" File accessed with unformatted input/ 

output. 


0 


File accessed with CYBER Record 
Manager interface routines 
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lfn Logical file name; can either be a unit number or the file name 

in nLfilename format. If i/o is specified as zero , lfn can be an 
array containing the file information table. 

action File disposition after sort or merge; specified as follows: 

"REWIND" 

"UNLOAD" 

"NONE" (default) 

CALL SMKEY(charpos,bitpos,nchar,nbits,code,colseq,order) 

SMKEY must be called once for each sort key. 

charpos Integer specifying the starting position of sort key counting 
from 1. 

bitpos Integer specifying the first bit of charpos counting from 1. 
nchar Number of characters in sort key. 

nbits Number of bits in excess of nchar. 

The remaining three parameters are optional. 

code Code used to interpret keys; specified as follows: 


"DISPLAY" 

Internal display code 

"FLOAT" 

Floating point data 

"INTEGER" 

Signed integer data 

"LOGICAL" 

Unsigned integer data (default) 

The following identifiers must be separated by commas as 
indicated. 

"DISPLAY", 

"SIGN", 

"LEADING" 

Numeric data in display code; sign 
present as overpunch at beginning of 
field (NOS and NOS/BE only). 

"DISPLAY", 

"SIGN", 

"TRAILING" 

Numeric data in display code; sign 
present as overpunch at end of field. 

"DISPLAY", 

"SEPARATE", 

"LEADING" 

Numeric data in display code; sign is 
a separate character at beginning of 
field (NOS and NOS/BE only). 

"DISPLAY", 

"SEPARATE", 

"TRAILING" 

Numeric data in display code; sign is 
a separate character at end of field 
(NOS and NOS/BE only). 
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colseq 


Name of user-supplied collating sequence; can be used only if 
code is "DISPLAY”. Possible collating sequences are the 


following: 


"ASCII6" 

ASCfl 6-bit collating sequence. 

"COBOL6" 

COBOL 6-bit collating sequence. 

"DISPLAY" 

Internal display code collating sequence, 

"INTBCD" 

Internal BCD collating sequence. 

Seqnam 

Collating sequence defined by SMSEQ 


order Specifies order of sort processing as follows: 

"A" Ascending (default) 

"D" Descending 

CALL SMSEQ(seqnam,seqspec) 

SMSEQ defines a user's collating sequence, 
seqnam Name of user-supplied collating sequence 

seqspec Name of integer array specifying the characters to be collated. 
Each character should be in either nRf or octal format. The 
array must be terminated by a negative number. 

CALL SMEQU(colseq,equspec) 

SMEQU defines two or more characters in a collating sequence as equal foi 
comparison purposes. 

colseq Name of the collating sequence; determined by a previous call tc 
SMKEY or SMSEQ. 

equspec Name of integer array specifying the characters to be collated. 
Each character should be in either nRf or octal format. The 
array must be terminated by a negative number. 

CALL SMOPT(optlist) 

SMOPT specifies special record handling options and must be called 
immediately after SMSORT or SMMERGE. If SMOPT is called more than 
once the last call overrides all previous calls. 

optlist Non-ordered series of options separated by commas; specified as 
follows: 

"VERIEY" Check output for correct sequencing 

"RETAIN" Retain records with identical sort keys in 

order of appearance on input file. 
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"VOLDUMP" 

"DUMP" 

"DUMP",n 


Checkpoint dump at end-of-volume (NOS 
and NOS/BE only). 

Checkpoint dump after 50000 records (NOS 
and NOS/BE only). 

Checkpoint dump after n (decimal) records 
(NOS and NOS/BE only). 


"NODUMP" 

"NODAY" 

"ORDER",mo 


No checkpoint dump (NOS and NOS/BE 
only). 

Suppress dayfile messages (NOS and 
NOS/BE only). 

Determines intermediate merge order 
(mo); 2<mo<:64 (NOS and NOS/BE only). 


"COMPARE" Use key comparison technique (NOS and 

NOS/BE only). 

"EXTRACT" Use key extraction technique (NOS and 

NOS/BE only). 


CALL SMOWN(exnumj,subnamei, . .. ,exnum n ,subname n ) 

* 

exnunrij Number of the owncode exit. 

subnamej Name of the user-supplied EXTERNAL owncode exit 

subroutine which exits through a call to system subroutine 
SMRTN. 


entry SUBROUTINE subname(a,rl) 

exit 1 or 3 CALL SMRTN(retaddr), for retaddr= 1 or 3. 

CALL SMRTN(retaddr,b,rl), for retaddr = 0 
or 2. 

No parameters are needed for exit number 1 if no input files 
are used. 

entry 

exit 2 or 4 

entry 
exit 5 


SUBROUTINE subname 

CALL SMRTN(retaddr), for retaddr = 0. 

CALL SMRTN(retaddr,b,rl), for retaddr = 1. 

SUBROUTINE subname(a^,rli,a2,rl2) 

CALL SMRTN(b2,rli,b2,rl2), for 
retaddr = 0. 


CALL SMRTN(bj,rlq), for retaddr = 1. 


# 


• 36 


60497900 B 



retaddr 


Return address 


O 




0 

1 

2 

3 

a,b 


rl 

CALL SMTAPE(taplist) 


Normal return address 

Normal return address + 1 

Normal return address + 2 

Normal return address + 3 

Integer array of rl/10 words that contains 
the record stored when subname is called. 

Record length in characters. 


SMTAPE specifies all magnetic tape intermediate merge files (NOS and 
NOS/BE only). 

taplist List of names assigned to intermediate merge files. 


CALL SMEND 


SMEND is required to initiate execution of Sort/Merge 4 and 1. 
CALL SMABT 


SMABT terminates a sequence of Sort/Merge 4 and 1 calls without 
execution of Sort/Merge. 


# 


60497900 B 


37 i 




CYBER RECORD MANAGER INTERFACE 

The FORTRAN user can access CYBER Record Manager facilities directly by 
calling the following subprograms. File names used in the calls must not appear 
in a PROGRAM statement. FIT field mnemonics used to- represent parameters 
in the CALL statements are the same as the FIT field mnemonics defined in the 
CYBER Record Manager reference manual. These subprograms are not callable 
through SCOPE 2.1. Except for CALL FILExx, the order of parameters is fixed 
so that all parameters to the left of a desired option must be specified. Refer 
to either the CYBER Record Manager Basic Access Methods Reference Manual 
or to the CYBER Record Manager Advanced Access Methods Reference Manual 
for more detailed information. 



CALL CHECK (fit) 


Determines I/O status for SQ and WA 
file types. 


CALL CLOSEM (fit,cf,typ) 

| CALL DLTE (fit,ka,kp,0,ex) 


CALL ENDFILE (fit) 


Closes file for all file types. 

Deletes record for IS, DA, and AK file 
types. 

Writes end-of-partition for SQ file type. 



CALL FILExx (fit,keyword.j,value.|,..., 
keyword n ,value n ) 

CALL FITDMP (fit,d) 

CALL FLUSH (afit) 

CALL FLUSH 1 (fit) 


CALL GET (fit,wsa, 


f 3 l.kp.mkl, 

(wa) 




CALL GETN (fit,wsa,ka,ex) 


Establishes FIT for all file types. 


Dumps the contents of the FIT to error 
file ZZZZEG. 

Performs all file close operations but the 
files remain open. 

Performs all the file close operations for 
a single file. The file remains open. 

Reads record for all file types. 


Reads next record for IS, DA, and AK 
file types. 



CALL GETP (fit,wsa,ptl, 4LSKIP,dx) Reads partial record for SQ and WA 

file types. 


CALL OPENM (fit,pd,of) 


Opens file for all file types. 


|^0 

CALL PUT (fit,wsa,rl,-<? V,kp,pos,ex) Writes record for all file types, 
wa 



CALL PUTP (fit,wsa,ptl,rl,ex) Writes partial record for SQ and WA 

file types. 

CALL REPLC (fit,wsa,rl,ka,kp,0,ex) Replaces record for SQ, IS, DA, and AK 

file types. The parameters rl, ka and kp 
must be specified as zero for SQ file type. 


CALL REWND (fit) 


Rewinds file for 
file types. 


SQ, IS, DA, and AK 
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CALL RMKDEF (fit,rkw,rkp,kl,0,kf. Defines primary or alternate key field 

ks,kg,kc,nl,ie,ch) in a record for IS, DA, and AK multiple 

index file types. 


CALL SEEKF (fit,ka,kp,mkl,ex) 

Initiates record search for IS, DA, and 
AK file types. 

CALL SKIP (fit,±count) 

Repositions file for SQ, IS, and AK file 
types. 

CALL STARTM (fit,ka,kp,mkl,ex) 

Positions an IS or AK file to a record 
that meets a specific condition. 

CALL STOREF (fit,keyword,value) 

Sets FIT value in field named for all 
file types. 

CALL WEOR (fit,lev) 

Terminates S type record after PUTP, 
writes end-of-section or end-of-partition 
for SQ file type. 

CALL WTMK (fit) 

Writes tape mark for SQ file type. 

1 FETCH (fit,keyword) 

Integer function. Retrieves contents of 
FIT field named for all file types. 

xx File organisation mnemonic: 

SQ sequential files 

WA word addressable files 

IS indexed sequential files 

DA direct access files 

AK actual key files 


Multiple index processing is allowed for IS, DA, and AK file 
organizations. 

fit Name of the 35-word array containing the file information 

table (FIT) 

afit Name of the array containing a list of addresses of FITS; the 

array must be terminated by a word of zeros. 

keyword Name of a FIT field in L format 

value Value for FIT field specified by keyword 

Type of processing: 

5LINPUT read only 

6L0UTPUT write only 

3LI-0 read and write 

3LNEW IS, AK, or DA file to be created (write 

only) 


Pd 

<3 
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of 


cf 


typ 


wsa 

ka 

wa 

kp 

mkl 

rl 

ex 

dx 

pos 


count 

lev 

ptl 


Open flag; specifies position of file when opened as follows: 

1LR Rewind. 

1LN No file positioning. 

1LE File is positioned just before end-of-information. 

Close flag; specifies position of file after close as follows: 

ILR Rewind. 

1LN No rewind. 

ILU Unload. 

3LRET Return. 

3LDIS Disconnect (terminal files only). 

3LDET No positioning; release buffer space and remove 
from active file list. 

Type of close to be performed on SQ files only; omitted for 
all other file organizations: 

6LVOLUME Volume close. 

4LFILE File close. 

Working storage area. 

Address of key for DA, AK, or IS records. 

Word address for read or write. 

Beginning character position of key within ka; 0-9. 

Major key length on IS files; symbolic key type. 

Record length in characters; 1 indicates positioning rather 
than length. 

Name of user owncode error exit subroutine; must be specified 
in an EXTERNAL statement. 

Name of end-of-data exit subroutine (EXTERNAL). 

Duplicate key processing; indicates action to be taken when a 
duplicate key is encountered: 

0 First record in a duplicate key chain will be 

deleted or replaced. 

Number of logical records to be skipped; positive for forward 
skip, negative for backward skip. 

Level number for end-of-section; 0 to 17g. 

Partial transfer length in characters. 


4LSKIP Skip to beginning of next record before reading. 
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nl Null suppression: 0 = null values recorded (default), 
ie Include/exclude sparse control character; specified as follows: 

E Exclude alternate key value 

I Include alternate key value 

ch Characters that qualify as sparse control characters (maximum 36). 

id FIT identifier. 

rkw Relative keyword (0 = first word). 

rkp Relative key position (0 = keyword aligned starting at rkw position. 

kl Key length in characters (1-255 for symbolic key; 10 for signed 

key). 

kf Key type: 0 = symbolic; 1 = signed integer; 2 = unsigned integer, 
ki Summary index; reserved 0. 

ks Optional: substructure for each primary key list in the index: I = 

index-sequential; F = FIFO; U (default) - unique; can be specified 
as L format Hollerith constant. If ks is specified, kg and kc must 
be defined. 

kg size of repeating group m which key resides (default — 0), 
or the index block size. 

kc occurrences of group (default = 0). 


POST MORTEM DUMP 

Post Mortem Dump (PMD) analyzes the execution-time errors in 
FORTRAN programs. To use PMD, the PMD parameter must be specified 
on the FTN control statement. PMD is then activated by a fatal error or 
by one of the user-callable subroutines PMDLOAD or PMDSTOP. 

CALL PMDARRY(i,j,k) Prints one, two, and three dimensional arrays 

when an abort, PMDLOAD or PMDSTOP is 
called; i, j, and k represent the first, second, and 
third dimensions respectively. 

CALL PMDDUMP Causes a dump of variables in the calling routine 

when an abort or PMDLOAD or PMDSTOP is 
called. 

CALL PMDLOAD Causes an immediate dump of variables in the 

calling routine, all routines in the traceback 
chain, and any routines that have called 
PMDDUMP. 
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CALL PMDSTOP 


Causes an immediate dump of variables in the 
calling routine, all routines in the traceback 
chain, and any routines that have called 
PMDDUMP. The job is aborted. 

COMMON MEMORY MANAGER INTERFACE 

All Common Memory Manager (CMM) interfaces for NOS and NOS/BE are 
on the library SYMLIB. For a run using CMM interface routines, the user 
must either include the loader statement LDSET(LIB=SYMLIB) in the 
loader directives, or include a CALL SYMLIB subroutine call in the main 
program. SCOPE 2 users must specify SYMIO in the LDSET statement 
instead of SYMLIB. 

CALL CMMALF(ibksz,iszcde,igrpid,iblfwa) Allocates a fixed position 

block 

CALL CMMFRF(iblfwa) Frees a fixed position block 

when no longer needed 

iblksz Number of words required for block 

iszcds Size code: 

0 Fixed size block 

1 Block can grow at last word address 

2 Block can shrink at last word address 

4 Block can shrink at first word address 

5 Block can grow at first word address and shrink at 
last word address 

6 Block can shrink at first word address and last word 
address 

7 Block can shrink at first word address and last word 
address and grow at last word address 

igrpid Group identifier: 

0 Item does not belong to a group 

>0 The block is assigned to this group. (See Common 
Memory Manager Reference Manual.) 

iblfwa The first word address of a block allocated by CMM, value 
returned by a call to CMMALF. 

FORTRAN-CYBER INTERACTIVE 
DEBUG INTERFACE 

CYBER Interactive Debug (CID) is a debugging facility, available under 
NOS and NOS/BE only, which allows the user to monitor and control 
program execution from an interactive terminal. Debug tables must be 
produced during compilation to make all of the CID features available for 
use with FORTRAN programs. Debug tables are created if, prior to 
compilation, debug mode is turned on via the DEBUG control statement. 
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DEBUG or DEBUG(ON) Turns on debug mode 
DEBUG(OFF) Turns off debug mode 

Alternatively, debug tables can be created by compiling the program using 
the DB=ID or DB option of the FTN control statement. If debug tables are 
not created during compilation, CID can be utilized by turning debug mode 
on via the DEBUG control statement prior to execution; however, not all of 
the CID features are available. Refer to the CYBER Interactive Debug 
Reference Manual for more information about CID. 


FORTRAN CONTROL STATEMENT 

The control statement FTN4 can be used interchangeably with the 
following forms of the FTN control statement: 

FTN . comments 

FTN(pj, ... ,p n )comments 

FTN,pj, ... ,p n .comments 

The optional parameters, pj, can appear in any order. All parameters 
must be separated by commas. 

FORTRAN CONTROL STATEMENT PARAMETERS 

0 A EXIT 

A=0 System advances to the next control statement 

omitted whether or not fatal a compile-time error occurs. 

A System branchs to the next EXIT or teminates if a fatal 

compile-time error occurs. 

0 B BINARY OBJECT CODE FILE 

B Generated binary object code is placed on file LGO. 

omitted 

B=lfn Generated binary object code is placed on file lfn. 

B=0 No binary object code is produced. 

0 BL BURSTABLE LISTING 

BL=0 Output listing is generated in compact form, 

omitted 

BL Page ejects are generated between parts of output listing. 
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C COMPASS ASSEMBLY 


C=0 The FORTRAN internal assembler is selected, 

omitted 

C The COMPASS assembler is selected. 

• CC CONTROL STATEMENT CONTINUATION 

CC=0 The FTN control statement appears on one line only, 

omitted 

CC The FORTRAN compiler interprets the following control 

statement as a continuation of the FTN control statement. 

9 D DEBUGGING MODE PARAMETER 


D=0 Debug statements are ignored, 

omitted 

D=Ifn Debug statements are on file lfn. 

D Debug statements are on file INPUT. 

• DB CYBER INTERACTIVE DEBUG 


DB=0 No debug tables are created, 

omitted 


DB=ID Debug tables are created. This option must be specified 
DB if the DEBUG control statement is not specified but the 

program is to be debugged using CID. 


• E EDITING 

E=0 Object file is generated in normal binary code, 

omitted 

E=lfn Object file is output as COMPASS line images on file lfn. 

E Object file is output as COMPASS line images on file 

COMPS. 


• EL ERROR LEVEL 

EL=I Informative and fatal diagnostics are listed if OPT=0, 

omitted 1, or 2; note, warning and fatal diagnostics are listed if in 

TS mode. 

EL=A All non-ANSI and fatal diagnostics are listed. Informative 

diagnostics are listed if OPT=0, 1, or 2; note and warning 
diagnostics are listed if in TS mode. 

EL=N Fatal diagnostics are listed if OPT=0, 1, or 2; note, 

warning, and fatal diagnostics are listed if in TS mode. 
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EL=W 


Fatal diagnostics are listed if OPT=0, 1, or 2; warning and 
fatal diagnostics are listed if in TS mode. 

EL=F Fatal diagnostics are listed. 

• ER ERROR RECOVERY 

ER=0 Code is generated for object-time reprieve. (Default for 

OPT=l, 2) 

ER No code is generated for object-time reprieve. (Default 

for TS and OPT=D) 

• G SOURCE OF SYSTEM TEXT 

G=0 System text loading from sequential binary file is 

omitted prevented. 

G=lfn First sytem text overlay is loaded from file lfn. 

G=ifn/ovl System text overlay is loaded from file lfn. 

G System text overlay is loaded from file SYSTEXT. 

9 GO LOAD AND GO 

GO=0 The binary object file is not loaded and executed at the 

omitted end of compilation. 

GO The binary object file is loaded and executed at the end of 

compilation. 

• I SOURCE INPUT FILE 

I=INPUT Source code is on file INPUT, 
omitted 

I-lfn Source code is on file lfn. 

I Source code Is on file COMPILE. 

m L LIST OUTPUT FILE 

L Listable output is written on file OUTPUT, 

omitted 

L=lfn Listable output is written on file lfn. 

L=0 Fatal diagnostics and the statements that caused them 

are listed on the file OUTPUT. All other compile-time 
output is suppressed. 
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LCM LEVEL 2 AND LEVEL 3 STORAGE ACCESS 


LCM=D Direct mode (17-bit address mode) is selected for 
omitted level 2 or 3 data. 

LCM=I Indirect mode (21-bit address mode) is selected for level 2 
or 3 data. TS mode always uses 21-bit addressing for 
level 2 or 3 data. 

Level 2 data applies only to the CYBER 170 Model 176, CYBER 70 
Model 7600 computers. 

• ML MODLEVEL MICRO 

ML The current date in the form yyddd is used for the 

omitted MODLEVEL micro. 

ML=n The value specified by n (1-7 letters or digits) is used for 

the MODLEVEL micro. 

• OL OBJECT LIST 

OL=0 No object code is listed, 

omitted 

OL Object code is listed on list output file. 

• OPT OPTIMIZATION 

OPT=l Standard compilation and execution are activated, 

omitted 

OPT=0 Fast compilation and the T and ER options are activated. 

. OPT=2 East execution is activated. 

OPT 

• P PAGINATION OF OUTPUT LISTING 

P=0 Page numbering begins at 1 for each subprogram, 

omitted 

P Page numbering is continuous across program units. 

• PD PRINT DENSITY 

PD=6 Compile-time listings are 6 lines per inch, 

omitted 

PD=8 Compile-time listings are 8 lines per inch. 

PD 
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• PL PRINT LIMIT 


PL=n Maximum number of records that can be written to file 

OUTPUT at execution time is set by n. (Default PL=5000.) 

• PMD POST MORTEM DUMP 

PMD=0 No symbol tables are created. 

omitted 

PMD Symbol tables that are accessed by the Post Mortem 

Dump facility are generated. PMD must be specified if 
the facility is to be used. 

PS PAGE SIZE 

PS=n Maximum number of lines per page including headers for 

compiler listings is set by n. (Default PS=60.) 

• PW PAGE WIDTH 

PW=n Number of characters (50-136) on a line of listable output 

in TS mode is set by n. (Default PW=126.) 

PW Number of characters on a line of listable output is set to 

72. (Default for files connected to a terminal.) 

• Q PROGRAM VERIFICATION 

<3=0 Normal compilation is produced. 

omitted 

Q The compiler performs a full syntactic scan of the 

program, but no object code is produced. 

• R SYMBOLIC REFERENCE MAP 

R=1 A short map (symbols, addresses, properties, DO loop 

omitted map) is produced. 

R=0 No map is produced. 

R=2 A long map (short map plus reference by line number) 

R is produced. 

R=3 A long map plus a listing of common block numbers and 

equivalence classes is produced. In TS mode R=3 is 
identical to R=2. 


60497900 B 


47 




ROUND ROUNDED ARITHMETIC COMPUTATIONS 


ROUND=0 Arithmetic computations are not rounded, 
omitted 

ROUND=op The hardware rounding features are selected for the 
arithmetic operators specified by op (+ - * /). 

ROUND The hardware rounding features are selected for the 
arithmetic operations + - * /. 

• S SYSTEM TEXT FILE 

S=ovl System text overlay loaded from job's current library set. 

S=lib/ovl The system text overlay named ovi is loaded from the 

library called lib which can be either a user library file or 
a system library. 

S=0 No system text file is loaded if COMPASS is called to 

assemble any intermixed program. (Default if G^O.) 

S The system text overlay named SYSTEXT is loaded from 

the job's current library set. (Default if G=0.) 

» SEQ SEQUENCED INPUT FILE 

SEQ=0 Source code is in standard FORTRAN format, 

omitted 

SEQ Source code is in sequenced line format. 

• SL SOURCE LIST 

SL The source code is listed on the file specified by the 

omitted L parameter. 

SL=0 No source code is listed. 

0 STATIC STATIC LOADING 

STATIC=0 Dynamic memory management is used at execution 

omitted time; no LDSET directives are generated. 

STATIC Dynamic memory management is inhibited; a set of 

LDSET and USE directives (NOS and NOS/BE only) are 
generated. 

• SYSEDIT SYSTEM EDITING 

SYSEDIT=0 All input/output references are accomplished directly, 
omitted 

SYSEDIT All input/output references are accomplished indirectly. 
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• T ERROR TRACEBACK 

T=0 No traceback occurs when an error is detected, 

omitted 

T A full error traceback occurs when an-error is detected. 

• TS TIMESHARING MODE 

TS=0 OPT=l is selected, 

omitted 

T TS mode single pass compilation is selected. 

• UO UNSAFE OPTIMIZATION 

UO=0 Unsafe optimization is not performed, 

omitted 

UO Potentially unsafe operations are performed when OPT=2. 

• X EXTERNAL TEXT NAME 

X The file OPL is the source of external text (XTEXT). 

omitted 

X=lfn The file lfn is the source of external text (XTEXT). 

0 Z ZERO 

Z=0 No zero word parameter list is passed, 

omitted 

Z All subroutine calls having no parameters are forced to 

pass a parameter list consisting of a zero word. 
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CONTRpL DATA 
CORPORATION 






CORPORATE HEADQUARTERS, 8100 34th AVE. SO, 

MINNEAPOLIS, MINN, 55440 

SALES OFFICES AND SERVICE CENTERS 
IN MAJOR CITIES THROUGHOUT THE WORLD 



